Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  List  Exchange  Queued  Message  Information  

 Content of List Exchange Queued Message Information.vbs
MD5 Hash: FB056B65B707752771B44EE8039E9568
' Description: Returns information about queued messages on a computer running Microsoft Exchange Server 2003.


On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\ROOT\MicrosoftExchangeV2")

Set colItems = objWMIService.ExecQuery _
("Select * from Exchange_QueuedMessage")

For Each objItem in colItems
Wscript.Echo "Action deleted NDR: " & objItem.ActionDeletedNDR
Wscript.Echo "Action deleted no NDR: " & _
objItem.ActionDeletedNoNDR
Wscript.Echo "Action freeze: " & objItem.ActionFreeze
Wscript.Echo "Action thaw: " & objItem.ActionThaw
Wscript.Echo "Expiry: " & objItem.Expiry
Wscript.Echo "High priority: " & objItem.HighPriority
Wscript.Echo "Link ID: " & objItem.LinkID
Wscript.Echo "Link name: " & objItem.LinkName
Wscript.Echo "Low priority: " & objItem.LowPriority
Wscript.Echo "Message ID: " & objItem.MessageID
Wscript.Echo "Normal priority: " & objItem.NormalPriority
Wscript.Echo "Protocol ID: " & objItem.ProtocolName
Wscript.Echo "Queue ID: " & objItem.QueueID
Wscript.Echo "Queue name: " & objItem.QueueName
Wscript.Echo "Received: " & objItem.Received
Wscript.Echo "Recipient count: " & objItem.RecipientCount
Wscript.Echo "Recipients: " & objItem.Recipients
Wscript.Echo "Sender: " & objItem.Sender
Wscript.Echo "Size: " & objItem.Size
Wscript.Echo "State flags: " & objItem.StateFlags
Wscript.Echo "State frozen: " & objItem.StateFrozen
Wscript.Echo "State retry: " & objItem.StateRetry
Wscript.Echo "Subject: " & objItem.Subject
Wscript.Echo "Submission: " & objItem.Submission
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo "Virtual machine: " & objItem.VirtualMachine
Wscript.Echo "Virtual server name: " & _
objItem.VirtualServerName
Wscript.Echo
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a